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-- DebugBreakptDef s.Mesa 
-- Edited by: 

Sandman on May 2, 1978 5:18 PM 

Barbara on July 13, 1978 11:28 AM 

DIRECTORY 

AltoDefs: FROM "altodefs" USING [BYTE], 

BcdDefs: FROM "bcddefs" USING [SGIndex], 

ControlDefs: FROM "controldef s" USING [BytePC, GlobalFrameHandle], 

CoreSwapDefs: FROM "coreswapdef s" USING [SVPointer] , 

LoadStateDefs: FROM "loadstatedef s" USING [Conf iglndex], 

SymbolTableDefs: FROM "symbol tabledef s" USING [SymboUableBase], 

SymDefs: FROM "symdefs" USING [BTIndex, FGTEntry]; 

DEFINITIONS FROM ControlDefs; 

DebugBreakptDefs: DEFINITIONS ■ 

BEGIN 

BreakBlock: TYPE - RECORD [ 

chain: BBPointer, -- link to other blocks 

faddr: GlobalFrameHandle, 

code: CodeObject, 

condition: STRING, 

pc: BytePC, -- relative pc 

brkinst: AltoDefs .BYTE, -- old inst 

exo: EXOItype, 

bt: BTtype]; 

CodeObject: TYPE ■ RECORD [ 

conf ig: LoadStateDefs. Conf iglndex, 
seg: BcdDefs. SGIndex]; 

BTtype: TYPE » {break, trace}; 
EXOItype: TYPE = {entry, exit, octal, in}; 
GCtype: TYPE ■ {prog, proc}; 
SCtype: TYPE « {set, clear}; 
BBPointer: TYPE » POINTER TO BreakBlock; 

BreakError: TYPE ■ {notFound, notAllowed, noReturn, noBreaksSet, noTracesSet, 
badCondition, tooManyConditions, noSym}; 

BodyEntryPc: PROCEDURE [frame: GlobalFrameHandle, e: CARDINAL, noSym: BOOLEAN] 

RETURNS [pc: BytePC]; 
BodyExitPc: PROCEDURE [frame: GlobalFrameHandle, e: CARDINAL] 

RETURNS [pc: BytePC]; 
Break: PROCEDURE [sp: CoreSwapDefs .SVPointer] ; 

BreaklnstToState: PROCEDURE [sp: CoreSwapDefs .SVPointer , b: AltoDefs. BYTE]; 
Breakpoint: PROCEDURE [body, condition: STRING, bt: BTtype, sc: SCtype, 

ex: EXOItype]; 
BreakPointError : SIGNAL [error: BreakError]; 
ClearAllBT: PROCEDURE [bt: BTtype]; 
ClearBreakBlocks: PROCEDURE; 

ClearTextBreakPoint: PROCEDURE [body, source: STRING, gc: GCtype]; 
CodeToSourcelndex: PROCEDURE [frame: GlobalFrameHandle, pc: BytePC] 

RETURNS [index: CARDINAL]; 
DeleteBreaks: PROCEDURE; 
EntryToBTI: PROCEDURE [sbase: Symbol TableDefs .SymboUableBase, 

e: CARDINAL] RETURNS [SymDefs . BTIndex] ; 
FindBPRec: PROCEDURE [frame: GlobalFrameHandle, pc: BytePC] 

RETURNS [p: BBPointer]; 
FindSegBPRec: PROCEDURE [frame: GlobalFrameHandle, pc: BytePC] 

RETURNS [p: BBPointer]; 
InsertBreak: PROCEDURE [frame: GlobalFrameHandle, pc: BytePC, e: EXOItype, 

b: BTtype, condition: STRING]; 
ListAll: PROCEDURE [bt: BTtype]; 

OctalBreakPoint: PROCEDURE [frame: GlobalFrameHandle, pc: BytePC, sc: SCtype]; 
PrintLocation: PROCEDURE [ 

frame: GlobalFrameHandle, index: CARDINAL, scroll: BOOLEAN]; 
RemoveBreak: PROCEDURE [frame: GlobalFrameHandle, pc: BytePC]; 
RestoreBreaks: PROCEDURE; 
StringToFGTEntry: PROCEDURE [ 

frame: GlobalFrameHandle, entryindex: CARDINAL, s: STRING] 

RETURNS [fgte: SymDefs . FGTEntry] ; 
TextBreakPoint: PROCEDURE [ 

body, source, condition: STRING, bt: BTtype, gc: GCtype]; 


